|
600
|
How can I display minutes
With AxG2antt1
.Chart.LevelCount = 2
.Chart.UnitWidth = 64
.Chart.Level(0).Label = 65536
.Chart.Level(1).Label = 1048576
End With
|
|
599
|
How can I display seconds, from 15 to 15
With AxG2antt1
.Chart.FirstVisibleDate = "00:00"
.Chart.LevelCount = 2
.Chart.Level(0).Label = 1048576
With .Chart.Level(1)
.Label = "<%ss%>"
.Count = 15
End With
End With
|
|
598
|
How can I display seconds
With AxG2antt1
.Chart.LevelCount = 2
.Chart.Level(0).Label = 1048576
.Chart.Level(1).Label = "<%ss%>"
End With
|
|
597
|
How can I display seconds
With AxG2antt1
.Chart.LevelCount = 2
.Chart.Level(0).Label = 1048576
.Chart.Level(1).Label = 16777216
End With
|
|
596
|
How can I align the text being shown in the chart's header
With AxG2antt1
.Chart.UnitWidth = 64
With .Chart.Level(0)
.Label = "<b><%mmmm%></b> <r><%m%>"
.Unit = EXG2ANTTLib.UnitEnum.exMonth
.Alignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
End With
End With
|
|
595
|
How can I hide the tooltip being displayed in the chart's header
With AxG2antt1
.Chart.Level(0).ToolTip = ""
End With
|
|
594
|
How can I change the tooltip being displayed in the chart's header
With AxG2antt1
.Chart.Level(0).ToolTip = "This is a bit of text that's shown when the cursor hovers the level"
End With
|
|
593
|
How can I change the visual appearance of the chart's header, where levels are displayed, using your EBN files
With AxG2antt1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Chart.LevelCount = 2
.Chart.BackColorLevelHeader = &H1000000
End With
|
|
592
|
How can I change the level's foreground color in the chart
With AxG2antt1
.Chart.LevelCount = 2
.Chart.Level(0).ForeColor = RGB(255,0,0)
.Chart.Level(1).ForeColor = RGB(0,0,255)
End With
|
|
591
|
How can I change the level's background color in the chart
With AxG2antt1
.Chart.LevelCount = 2
.Chart.Level(0).BackColor = RGB(255,0,0)
End With
|
|
590
|
How can I save data on XML format
With AxG2antt1
.LoadXML("http://www.exontrol.net/testing.xml")
.SaveXML("c:/temp/exg2antt.xml")
End With
|
|
589
|
How can I load data on XML format
With AxG2antt1
.LoadXML("http://www.exontrol.net/testing.xml")
End With
|
|
588
|
How can I add icons or pictures to the scale or zoom area
With AxG2antt1
.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.OverviewHeight = 48
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exZoomOnRClick
.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
.OverviewZoomUnit = 52
End With
.Columns.Add("")
With .Items
.CellSingleLine(.AddItem("Right click the Overview area and select a new scale"),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
End With
End With
|
|
587
|
How can I add icons or pictures to the scale or zoom area
With AxG2antt1
.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.OverviewHeight = 48
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
.OverviewZoomUnit = 52
End With
End With
|
|
586
|
How can I change the width of the unit in the scale or zoom
With AxG2antt1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>|Third|<img>2</img>|<img>1</img>|Hour|Min|Sec"
.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
.OverviewZoomUnit = 24
End With
End With
|
|
585
|
How can I a scale or zoom of the chart, when right clicking the chart's header
With AxG2antt1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exZoomOnRClick
.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
.OverviewZoomUnit = 64
End With
.Columns.Add("")
With .Items
.CellSingleLine(.AddItem("Right click the Overview area and select a new scale"),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
End With
End With
|
|
584
|
How can I a customize the scale or zoom of the chart
With AxG2antt1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
.OverviewZoomUnit = 64
End With
End With
|
|
583
|
How can I a scale or zoom the chart at runtime
With AxG2antt1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomCaption = "½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
End With
End With
|
|
582
|
How can I a scale or zoom the chart at runtime
With AxG2antt1
With .Chart
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomUnit = 24
End With
End With
|
|
581
|
How can I a programmatically select a date
With AxG2antt1
.Chart.MarkSelectDateColor = RGB(255,0,0)
.Chart.SelectLevel = 0
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.SelectDate(#1/2/2001#) = True
.Chart.SelectDate(#1/5/2001#) = True
End With
|
|
580
|
How can I change the color to select a date, when clicking the chart's header
With AxG2antt1
.Chart.BackColor = RGB(255,255,255)
.Chart.MarkSelectDateColor = RGB(255,0,0)
End With
|
|
579
|
How can I enable or disable selecting a date, when clicking the chart's header
With AxG2antt1
.Chart.BackColor = RGB(255,255,255)
.Chart.MarkSelectDateColor = RGB(255,255,255)
End With
|
|
578
|
How can I specify the color or the stype for non working hours
With AxG2antt1
.Chart.UnitScale = EXG2ANTTLib.UnitEnum.exHour
.Chart.PaneWidth(False) = 0
.Chart.NonworkingHours = 127
.Chart.NonworkingHoursPattern = EXG2ANTTLib.PatternEnum.exPatternYard
.Chart.NonworkingHoursColor = RGB(255,0,0)
End With
|
|
577
|
How can I specify the pattern or the stype for non working hours
With AxG2antt1
.Chart.UnitScale = EXG2ANTTLib.UnitEnum.exHour
.Chart.PaneWidth(False) = 0
.Chart.NonworkingHours = 127
.Chart.NonworkingHoursPattern = EXG2ANTTLib.PatternEnum.exPatternDiagCross
End With
|
|
576
|
How can I specify the non working hours
With AxG2antt1
.Chart.UnitScale = EXG2ANTTLib.UnitEnum.exHour
.Chart.PaneWidth(False) = 0
.Chart.NonworkingHours = 127
End With
|
|
575
|
How can I get the index of the level from the point or cursor
Dim var_LevelFromPoint
With AxG2antt1
var_LevelFromPoint = .Chart.LevelFromPoint(0,0)
End With
|
|
574
|
How can I get the link from the point or cursor
Dim var_LinkFromPoint
With AxG2antt1
var_LinkFromPoint = .Chart.LinkFromPoint(0,0)
End With
|
|
573
|
How can I disable or enable at runtime linking the bars
With AxG2antt1
.Chart.AllowLinkBars = True
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2")
End With
End With
|
|
572
|
How can I check or verify if a date is a non working day
With AxG2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add(AxG2antt1.Chart.IsNonworkingDate(#1/1/2001#))
End With
|
|
571
|
How can I check or verify if a date fits the chart's visible area
With AxG2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add(AxG2antt1.Chart.IsDateVisible(#1/1/2001#))
End With
|
|
570
|
How can I add a remove all non working days
With AxG2antt1
.Chart.NonworkingDays = 0
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.AddNonworkingDate(#1/1/2001#)
.Chart.ClearNonworkingDates()
End With
|
|
569
|
How can I add a remove a non working days
With AxG2antt1
.Chart.NonworkingDays = 0
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.AddNonworkingDate(#1/1/2001#)
.Chart.RemoveNonworkingDate(#1/1/2001#)
End With
|
|
568
|
How can I add a custom non working days
With AxG2antt1
.Chart.NonworkingDays = 0
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.AddNonworkingDate(#1/1/2001#)
.Chart.AddNonworkingDate(#1/5/2001#)
End With
|
|
567
|
How can hide the non working days
With AxG2antt1
.Chart.ShowNonworkingDates = False
End With
|
|
566
|
How can hide the non working days
With AxG2antt1
.Chart.NonworkingDays = 0
End With
|
|
565
|
How can I let user adds new bars at runtime
With AxG2antt1
.Chart.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
|
564
|
How can I change the width of the links between bars
With AxG2antt1
.Chart.LinksStyle = EXG2ANTTLib.LinkStyleEnum.exLinkSolid
.Chart.LinksWidth = 2
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2")
.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
End With
End With
|
|
563
|
How can I change the style for the links between bars
With AxG2antt1
.Chart.LinksStyle = EXG2ANTTLib.LinkStyleEnum.exLinkDashDotDot
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2")
.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
End With
End With
|
|
562
|
How can I change the color for the links between bars
With AxG2antt1
.Chart.LinksColor = RGB(255,0,0)
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2")
.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
End With
End With
|
|
561
|
How can I hide the links between bars
With AxG2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2")
.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
End With
.Chart.ShowLinks = EXG2ANTTLib.ShowExtendedLinksEnum.exHideLinks
End With
|
|
560
|
How can I display some grid line in the overview area
With AxG2antt1
.Chart.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Chart.OverviewLevelLines = 0
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#)
End With
End With
|
|
559
|
How do I change the tooltip when the cursor hovers the overview area
With AxG2antt1
.Chart.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Chart.OverviewToolTip = "Tooltip on the overview"
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#)
End With
End With
|
|
558
|
How do I remove the tooltip when the cursor hovers the overview area
With AxG2antt1
.Chart.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Chart.OverviewToolTip = ""
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
End With
End With
|
|
557
|
How do I change the selection color in the overview area
With AxG2antt1
.Chart.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Chart.OverviewSelBackColor = RGB(255,0,0)
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
End With
End With
|
|
556
|
How do I change the background color for the overview area
With AxG2antt1
.Chart.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Chart.OverviewBackColor = RGB(255,0,0)
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
End With
End With
|
|
555
|
How do I specify the height for the overview area
With AxG2antt1
.Chart.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Chart.OverviewHeight = 16
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
End With
End With
|
|
554
|
How do I show or hide the control's overview area
With AxG2antt1
.Chart.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
End With
End With
|
|
553
|
How do I enable or disable resizing the bars at runtime
With AxG2antt1
.Chart.BarsAllowSizing = False
End With
|
|
552
|
How do I get the bar from the point or cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
Dim c,h
With AxG2antt1
Debug.Print( .get_ItemFromPoint(-1,-1,c,h) )
Debug.Print( .Chart.BarFromPoint(-1,-1) )
End With
End Sub
Dim h1,h2,h3
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/29/2000#
.PaneWidth(False) = 64
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/4/2001#,#1/6/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
.AddLink("L2",h2,"K2",h3,"K3")
End With
.EndUpdate()
End With
|
|
551
|
How do I specify the color of pattern for non working days
With AxG2antt1
.Chart.NonworkingDays = 66
.Chart.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternVertical
.Chart.NonworkingDaysColor = RGB(255,0,0)
End With
|
|
550
|
How do I specify the type of pattern for non working days
With AxG2antt1
.Chart.NonworkingDays = 66
.Chart.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternBrick
End With
|
|
549
|
How do I specify the non working days
With AxG2antt1
.Chart.NonworkingDays = 66
End With
|
|
548
|
How do I specify the non working days
With AxG2antt1
.Chart.NonworkingDays = 66
End With
|
|
547
|
How do I add a predefined bar
With AxG2antt1
.Chart.Bars.Add("CustomBar").Color = RGB(255,0,0)
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"CustomBar",#1/2/2001#,#1/4/2001#)
End With
End With
|
|
546
|
How do I change the unit being displayed in the chart
With AxG2antt1
.Chart.PaneWidth(False) = 0
.Chart.UnitScale = EXG2ANTTLib.UnitEnum.exWeek
.Chart.UnitWidth = 64
End With
|
|
545
|
How do I specify the prodefined tooltip being shown on the chart's header, when Zoom method is used
With AxG2antt1
.Chart.PaneWidth(False) = 0
.Chart.LevelCount = 2
.Chart.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Chart.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Chart.Label(EXG2ANTTLib.UnitEnum.exMonth) = "<%m3%>"
.Chart.LabelToolTip(EXG2ANTTLib.UnitEnum.exMonth) = "Tooltip: <%mmmm%>"
.Chart.Zoom(#1/1/2007#,#1/1/2008#)
.Chart.FirstVisibleDate = #1/1/2007#
End With
|
|
544
|
How do I specify the prodefined labels being displayed on the chart, when Zoom method is used
With AxG2antt1
.Chart.PaneWidth(False) = 0
.Chart.LevelCount = 2
.Chart.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Chart.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Chart.Label(EXG2ANTTLib.UnitEnum.exMonth) = "<%m3%>"
.Chart.Zoom(#1/1/2007#,#1/1/2008#)
.Chart.FirstVisibleDate = #1/1/2007#
End With
|
|
543
|
How do I scale or zoom the chart to a specified range of date
With AxG2antt1
.Chart.PaneWidth(False) = 0
.Chart.LevelCount = 2
.Chart.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Chart.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Chart.Label(EXG2ANTTLib.UnitEnum.exMonth) = "<%m3%>"
.Chart.Zoom(#1/1/2007#,#1/1/2008#)
.Chart.FirstVisibleDate = #1/1/2007#
End With
|
|
542
|
How do I scale or zoom the chart to a specified range of date
With AxG2antt1
.Chart.PaneWidth(False) = 0
.Chart.LevelCount = 2
.Chart.Zoom(#1/1/2007#,#7/1/2007#)
.Chart.FirstVisibleDate = #1/1/2007#
End With
|
|
541
|
How do I find the next date or previous date
With AxG2antt1
With .Chart
.FirstVisibleDate = .NextDate(#1/1/2002#,EXG2ANTTLib.UnitEnum.exDay,1)
End With
End With
|
|
540
|
How can I change the color for the grid lines in the chart
With AxG2antt1
.Chart.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.Chart.LevelCount = 2
With .Chart.Level(1)
.DrawGridLines = True
.GridLineColor = RGB(255,0,0)
End With
End With
|
|
539
|
How can I draw, show or hide the grid lines in the chart
With AxG2antt1
.Chart.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.Chart.LevelCount = 2
.Chart.Level(1).DrawGridLines = True
End With
|
|
538
|
How do I change the color to highlight the today in the chart
With AxG2antt1
.Chart.MarkTodayColor = RGB(255,0,0)
End With
|
|
537
|
How do I hide or stop highlighting the today area in the chart
With AxG2antt1
With .Chart
.MarkTodayColor = .BackColor
End With
End With
|
|
536
|
Is there any function to get the date in the format that I use for levels, to layout my chart's header
Dim h
With AxG2antt1
h = .Chart.FormatDate(#1/1/2002#,"<%yyyy%> <%mmmm%> <%d%> <%dddd%>")
.Columns.Add(h)
End With
|
|
535
|
How can I get the date from the point, cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
With AxG2antt1
Debug.Print( .Chart.DateFromPoint(-1,-1) )
End With
End Sub
|
|
534
|
How can I show or hide the small ticker that shows up when the cursor hovers the chart area
With AxG2antt1
.Chart.DrawDateTicker = True
End With
|
|
533
|
How can I change the first visible date in the chart
With AxG2antt1
.Chart.LevelCount = 2
.Chart.FirstVisibleDate = #1/1/2002#
End With
|
|
532
|
How can I scroll or ensure that a specified date time is visible in the chart
With AxG2antt1
.Chart.LevelCount = 2
.Chart.FirstVisibleDate = #1/1/2002#
End With
|
|
531
|
How can I scroll or ensure that a specified date time is visible to the right side of the chart or control
With AxG2antt1
.Chart.LevelCount = 2
.Chart.ScrollTo(#1/1/2002#,2)
End With
|
|
530
|
How can I scroll or ensure that a specified date time is visible
With AxG2antt1
.Chart.LevelCount = 2
.Chart.ScrollTo(#1/1/2002#,2)
End With
|
|
529
|
How can I show or hide the the tooltip being shown when the user scrolls the chart
With AxG2antt1
.Chart.ToolTip = ""
End With
|
|
528
|
How can I change the format of the tooltip when the user scrolls the chart
With AxG2antt1
.Chart.ToolTip = "ToolTip: <b><%dddd%></b>"
End With
|
|
527
|
How can I hide the chart's scroll bar
With AxG2antt1
.Chart.ScrollBar = False
End With
|
|
526
|
How can I specify the first day of the week
With AxG2antt1
.Chart.LevelCount = 2
.Chart.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
End With
|
|
525
|
How do I change the AM or PM shortcuts in the chart's header
With AxG2antt1
.Chart.UnitWidth = 64
.Chart.AMPM = "A P"
With .Chart.Level(0)
.Label = "<%h%> <%AM/PM%>"
.Unit = EXG2ANTTLib.UnitEnum.exHour
End With
End With
|
|
524
|
How do I change the name for the months, being displayed in the chart's header
With AxG2antt1
.Chart.UnitWidth = 64
.Chart.MonthNames = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
With .Chart.Level(0)
.Label = "<b><%mmmm%></b>"
.Unit = EXG2ANTTLib.UnitEnum.exMonth
End With
End With
|
|
523
|
How do I change the name for the week days, being displayed in the chart's header
With AxG2antt1
.Chart.UnitWidth = 64
.Chart.WeekDays = "Duminica Luni Marti Miercuri Joi Vineri Simbata"
.Chart.Level(0).Label = "<b><%mm%></b>/<%dddd%>"
End With
|
|
522
|
How do I access a level in the chart's header
With AxG2antt1
.Chart.UnitWidth = 64
.Chart.Level(0).Label = "<b><%mm%></b>/<%dd%>"
End With
|
|
521
|
How can I change the color for the grid lines between the leves in the chart's header
With AxG2antt1
.GridLineColor = RGB(255,0,0)
.Chart.LevelCount = 2
End With
|
|
520
|
How can I show or hide the grid lines between the leves in the chart's header
With AxG2antt1
.GridLineColor = RGB(255,0,0)
With .Chart
.LevelCount = 2
.Level(0).DrawTickLines = EXG2ANTTLib.LevelLineEnum.exLevelNoLine
.Level(1).DrawTickLines = EXG2ANTTLib.LevelLineEnum.exLevelNoLine
End With
End With
|
|
519
|
How do I change the foreground color for the chart's header
With AxG2antt1
.Chart.ForeColorLevelHeader = RGB(255,0,0)
End With
|
|
518
|
How do I change the background color for the chart's header
With AxG2antt1
.Chart.BackColorLevelHeader = RGB(255,0,0)
End With
|
|
517
|
How do I specify the chart's foreground color
With AxG2antt1
.Chart.ForeColor = RGB(255,0,0)
End With
|
|
516
|
How do I specify the chart's background color
With AxG2antt1
.Chart.BackColor = RGB(255,0,0)
End With
|
|
515
|
How do I put a picture on the center of the chart
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Chart.PictureDisplay = EXG2ANTTLib.PictureDisplayEnum.MiddleCenter
End With
|
|
514
|
How do I resize/stretch a picture on the chart's background
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Chart.PictureDisplay = EXG2ANTTLib.PictureDisplayEnum.Stretch
End With
|
|
513
|
How do I put a picture on the chart's center right bottom side
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Chart.PictureDisplay = EXG2ANTTLib.PictureDisplayEnum.LowerRight
End With
|
|
512
|
How do I put a picture on the chart's center left bottom side
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Chart.PictureDisplay = EXG2ANTTLib.PictureDisplayEnum.LowerLeft
End With
|
|
511
|
How do I put a picture on the chart's center top side
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Chart.PictureDisplay = EXG2ANTTLib.PictureDisplayEnum.UpperCenter
End With
|
|
510
|
How do I put a picture on the chart's right top corner
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Chart.PictureDisplay = EXG2ANTTLib.PictureDisplayEnum.UpperRight
End With
|
|
509
|
How do I put a picture on the chart's left top corner
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Chart.PictureDisplay = EXG2ANTTLib.PictureDisplayEnum.UpperLeft
End With
|
|
508
|
How do I put a picture on the chart's background
With AxG2antt1
.Chart.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
|
|
507
|
How to specify the width for the left or side pane
With AxG2antt1
.Chart.PaneWidth(False) = 128
End With
|
|
506
|
How do I display the header of the chart using multiple levels, lines
With AxG2antt1
.Chart.LevelCount = 2
End With
|
|
505
|
How do change the width of the chart's area
With AxG2antt1
.Chart.PaneWidth(True) = 256
End With
|
|
504
|
How do I show or hide the control's chart area
With AxG2antt1
.Chart.PaneWidth(True) = 0
End With
|
|
503
|
How do I access the chart's area of the control
With AxG2antt1
.Chart.PaneWidth(False) = 64
End With
|
|
502
|
How can I select a cells like in excel
With AxG2antt1
.SingleSel = False
.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exRectSel
.MarkSearchColumn = False
.SearchColumnIndex = -1
.Columns.Add("Column1")
.Columns.Add("Column2")
.Columns.Add("Column3")
With .Items
.DefaultItem = .AddItem(0)
.CellValue(0,1) = 1
.CellValue(0,2) = 2
.DefaultItem = .AddItem(3)
.CellValue(0,1) = 4
.CellValue(0,2) = 5
.DefaultItem = .AddItem(6)
.CellValue(0,1) = 7
.CellValue(0,2) = 8
End With
End With
|
|
501
|
How can I select a multiple column
With AxG2antt1
.MarkSearchColumn = False
.SingleSel = False
.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exRectSel
.Columns.Add("Column1").Selected = True
.Columns.Add("Column2")
.Columns.Add("Column3").Selected = True
With .Items
.DefaultItem = .AddItem(0)
.CellValue(0,1) = 1
.CellValue(0,2) = 2
.DefaultItem = .AddItem(3)
.CellValue(0,1) = 4
.CellValue(0,2) = 5
.DefaultItem = .AddItem(6)
.CellValue(0,1) = 7
.CellValue(0,2) = 8
End With
.Items.SelectAll()
End With
|